home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
graphic
/
gle33b_1.zip
/
GLE4.ZIP
/
WALL.GLE
< prev
next >
Wrap
Text File
|
1990-11-22
|
3KB
|
191 lines
size 18 27 box ! this is for sticking on your wall
! it has fonts, lstyles, shading, colors, markers on it.
set hei 1 just center font plge
amove 9 25.5
text CGLE Wall Reference
set just left
set hei .3
amove .3 .4
text wall.gle
amove 2 4
sub sh f$
set just left
box -.5 .5 fill f$
RMOVE .2 .1
write f$
rmove -.2 .4
end sub
amove 10 10
set hei .3 font ss
begin box add .2
begin text width 7
The GRID and SHADE patterns should only be used for filling
on PostScript printers, the grey levels and colors will work
for both filling and color settings on any device.
end text
end box
set font rm
set hei .4
amove 11.5 2
@sh "Shade"
@sh "Shade1"
@sh "Shade2"
@sh "Shade3"
@sh "Shade4"
@sh "Shade5"
@sh "Grid"
@sh "Grid1"
@sh "Grid2"
@sh "Grid3"
@sh "Grid4"
@sh "Grid5"
amove 15 2
@sh "Red"
@sh "Green"
@sh "Blue"
@sh "Magenta"
@sh "Yellow"
@sh "Black"
@sh "White"
@sh "Grey1"
@sh "Grey5"
@sh "Grey10"
@sh "Grey20"
@sh "Grey90"
sub mm name$
gsave
mk = mk+1
gsave
set lwidth .0001
set lstyle 1212
rmove 0 .4
rline 0 -.8
rmove 0 .4
grestore
marker name$ 1
rmove .3 0
rline .5 0
rmove .2 -.15
write name$
grestore
rmove 0 -.65
end sub
amove 10 22
@mm "circle"
@mm "triangle"
@mm "square"
@mm "diamond"
@mm "fcircle"
@mm "ftriangle"
@mm "fsquare"
@mm "fdiamond"
@mm "dot"
@mm "cross"
@mm "club"
@mm "heart"
@mm "star"
@mm "snake"
amove 14.5 22
@mm "dag"
@mm "ddag"
@mm "asterix"
@mm "oplus"
@mm "ominus"
@mm "otimes"
@mm "odot"
@mm "trianglez"
@mm "diamondz"
@mm "wcircle"
@mm "wtriangle"
@mm "wsquare"
@mm "wdiamond"
sub fnt f$ n$
set font rm
set just right
write f$
rmove .5 0
set just left font f$
write n$
rmove -.5 -.6
end sub
set hei .4
amove 2 14
@fnt "rm" "Roman"
@fnt "rmi" "Roman Italic"
@fnt "rmb" "Roman Bold"
@fnt "rmbi" "Roman Bold Italic"
@fnt "tt" "Typewriter"
@fnt "ttb" "Typewriter Bold"
@fnt "ss" "Sans Serif "
@fnt "ssb" "Sans Serif Bold"
@fnt "ssi" "Sans Serif Italic"
@fnt "psc" "PostScript Courier"
@fnt "psh" "PostScript Helvetica"
@fnt "psbd" "PostScript Bookman Demi"
@fnt "psncsb" "PostScript New Century School Book"
@fnt "pszcmi" "PostScript ZapfChancery-MediumItalic"
@fnt "pszd" "PostScript ZapfDingbats"
@fnt "pltr" "Plotter Triplex Roman"
@fnt "pldr" "Plotter Dupex Roman"
@fnt "plsr" "Plotter Simplex Roman"
@fnt "plge" "Plotter Gothic English"
@fnt "plci" "Plotter Complex Italic"
@fnt "plss" "Plotter Simplex Script"
amove 2 20
box 6 3
begin origin
set hei .3 just left font rm
amove .5 2.5
for z = 0 to 4
set lstyle z
rline 2 0
rmove .1 0
write z
rmove -2.1 -.4
next z
amove 3.5 2.5
for z = 5 to 9
set lstyle z
rline 2 0
rmove .1 0
write z
rmove -2.1 -.4
next z
amove .5 .2
set lstyle 9229
rline 3 0
rmove .1 0
text 9229
end origin
sub lw ww wn$
set lwidth ww
rline 1 0
rmove .2 -.1
write wn$
rmove -1.2 .5
end sub
set hei .3 just left font ss
amove 3 16
@lw 0 "lwidth 0"
@lw .0001 "lwidth 0.0001"
@lw .01 "lwidth 0.01"
@lw .02 "lwidth 0.02"
@lw .05 "lwidth 0.05"
@lw .1 "lwidth 0.1"
@lw .2 "lwidth 0.2"